home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_10_1986_Transactor_Publishing.d64 / mini datafier (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  200b  |  6 lines
  1. 1 s=49152:e=49400:z=1000:i=10
  2. 2 print"[147]"z"data ";: if s>e then end
  3. 3 k=s+6: if k>e then k=e
  4. 4 for s=s to k: print mid$(str$(peek(s)),2)",";: next: print"[157] "
  5. 5 print"s="s":e="e":z="z+i":i="i":goto2";:poke631,13:poke632,13:poke198,2:end
  6.